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CURRENT NOTES 



Current Notes is published monthly (excluding January 
and August! Tree of charge by the National Capital Atari 
Users Group, Inc., 1800 H Street, Nashington, D.C., 20036, 
for its webers and for the members of N0VATAR1 (Northern 
Virginia Atari User Group) and A.U.R.A. (Atari Regional 
Association of Maryland). Second-class postage paid at 
Rockville, Hd. Application to sail at second-class 
postage rates is pending at Rockville, Nd. POSTMASTER; 
Send address changes to Editor, Current Notes. 122 N. 
Johnson Rd., Sterling, VA. 22170. 

The three member groups are independent groups for 
Atari computer users, and are not affiliated in any way 
with ATARI, Inc. Opinions expressed in this publication 
are those of the individual authors and do not necessarily 
represent or reflect the opinions of any of the User 
Groups. 

Membership dues for each group are $15.00 a year, 
which includes a subscription to Current Notes. See the 
last page for further information on club memberships. 

Current Notes is available to other Atari User Groups 
on an exchange basis. Material in this newsletter may be 
reprinted by other Atari User Groups, provided Current 
Notes and the author, if applicable, are cited. 

Coeeercial advertising rates; full page, $40; half 
page, $25; quarter page, $15; 1/6 page $10. Subeit 
photo-ready copy to the editor. The deadline date for 
both articles and advertisements is the 15th day of the 
preceedinq tenth. 


The Editor of Current Notes is Joe haters, 122 N. 
Johnson Road, Sterling, Virginia 22170, (703) 430-1215. 
News items, short articles, original programs, product 
reviews, classified ads, and any other material of 
interest to the membership are eagerly solicited. 
Classified ads are free to members. 
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Fdi t or-i al = 


As you say have noticed, the Hay issue of Current Notes did not arrive until late in the aonth. Many 
circufstalces contributed to that delay, but .ostly it can be credited to a nen editor, neu business .anager, an 
new printer -- all in the sa#e aonth. If you are reading this issue soaetiae around «id-June, you can rest 
assured that the experience has paid off and that «e are aell on the Hay to establishing a consistent publication 
schedule. Hy goal is to eventually have each aonth’s issue arrive on or about the first of the .onth. 

Nhile I’* on the subject of goals, let «e .ention another one. This issue is exactly 24 pages long, the 
provide inforiftiofto VStS"\l certainl/ "ould "elcol 

sss r & -r 2‘i-a * : r-. 

The constraint is econoaics pure and staple. Increasing the publication size fro* 24 to 28 pages sould cost 
,» idJitimjl M K ». M.D .ill pay t»r tb. incrmal .iu? ItMb.r.bip <«« •" i t,nMl 

fund any expansion. 

Sronth can cose fro* three possible sources. An obvious source of inco*e is advertisers. Tho half-page ads 
Hould just about cover the cost of expanding fro* 24 to 28 pages. Men *e.bers, of course, also provide growth. 
ThP laroer our base the cheaper it is to publish the nensletter. It cost *ore to publish 500 copies of a J-page 
nensletter than 800*copies of a 28-page nensletter. The third potential source is sales of C^rrefit Ngtes on 
' ul» ».t c.«r th.ir « of pr.d.cti.n, tat .1» talp « ft. —-*>«. ■» 

the economies of scale alluded to above. 


So ho. can you help? You can, of course, help find nen *e*bers. 


But tore important than that, help *e find 

Tiin.' rfverti« i. ton“7^;^ 

nensletter on consignsent. Atari products are not that easy to find anyior . 
advertisetents nould benefit our readers as well as the »erchant advertising, 
authoring an article or tno. 


Thus, 

And, 


I feel, local lerchant 
finally, you could try 


nen columist and also 
a Monthly colutn on the 


Enough of econo*ics. Nhat’s in this aonth’s issue? I • pleased to introduce a 

announce the for*ation of our first SIB (Special Interest Broup). John Lauer Hill provide 
announce ^ group (see page 7)< B ob Kelly begins an analysis of computer .agazines (p.8) and 

(p.10) and provides a revien of Suspended and Ultiaa III; Exodus. Hy 


activities of the ATR 8000 
Jay Berber continues his *usic tutorial 


Elsie Be c pa s « iU nor.al tout to oHer a coaplete .ini database aanageaent^yste. (p.12) And 

r 451 “ :T..- nnrt* (d. 16). tno interesting L060 progra.5 <p.!8>, use of the NOTE 


fro* Atari ne have features on the joystick ports (p.16), tno interesting 
and POINT coaaands (p.20), and a siaple circle draning routine (p.21>. 
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Wetshingtion DC Atari Users Group 

1800 8. Street NW, Washington, DC 


Club Officers 


President......... 

Treasurer......... 

Headership.... 

Program Chairean.. 
V Progra* Chairean 
Disk Librarian.... 
Tape Librarian.... 
ANALOG Disk. 


Frank Huband 
Alien H. Leman 
Gerald Whitmore 
Arthur B. Corte 
Tie Caepbell 
Jay Gerber 
Bruce Ingalls 
John Brophy 


(202! 527-4770 
(301) 460-0289 
(301) 459-6164 
(703) 437-7860 
(703) 425-1440 
(703) 525-9715 
(703) 430-3287 
(703) 425-7169 


DC Meetings 


This Mill also eean that we can non sell D.C. library 
disks to anyone who has the money for thee. Starting with 
the Tune eeeting, I will start selling thee at Novatari as 
well as the D.C. group meetings. The cost of aost all of 
the disks is $4 a piece. I expect to have a coeplete 
catalog of all library disks published in the July or 
August issue of Current Hotes. 

Tune will also bring two new disks to the club 
library. Disk *24 titled ’Storymaker’ which was scheduled 
for release last month, but had to be debugged 
extensively, will definitely be inducted this eonth. Also 
new is an educational disk consisting of programs Bade by 
just our members. The topics range from spelling to 
quantum mechanics, and is numbered 125. 


are held on the 3rd Tuesday of, every month in Room 543 of 
the National Science Foundation offices, 1800 6 Street NW, 
Kashington, DC. The closest subway stop is Farragut Nest, 
on the Blue and Orange Lines.- Take the 18th Street exit, 
and walk south (against the flow of traffic) down 18th 
Street for 3 blocks to 8 street. The building is on the 
corner of 18th and 6; it can be identified by a sign for 
the Hadison National Bank on the corner. Front entrance 
is in the middle of the block. Parking is available in 
the Building, for a fee. The entrance is on the west side 
of 18th street, between F and 8. Heetings begin at 5:30 
pm and usually last until 8 or 9. 


One last item which I don’t like or want to announce 
is the restrictions placed on all future magazine disks. 
Compute! magazine has indicated to some user groups that 
its programs are not exactly public-domain. They have set 
guidelines, and we must follow them. ANALOG has also set 
rules for its programs and disks. From now on, every 
person wishing to purchase a Compute or Analog magazine 
disk, must first show some evidence that you bought the 
magazine which contains the programs on the disk. This 
can either be a current sailing label or a copy of the 
magazine itself. ® 


Coming Events 
By Arthur Corte 

Tune 19: In June, providing we can get our communications 
link working, we hope to demonstrate telecommunications 
with the Atari and the use of our bulletin board together 
with CompuServe , the Source and some other timesharing 
services. Later on in the year, we hope to demonstrate 
some of the SAT practice programs that have recently 
become available. 

Disk Librarian’s Update 
By Tay 6erber 

There are alot of changes being made in the disk library 
this month. He now have a disk ’copy house’ to do all of 
our copying for us. This will save wear and tear on ay 
poor single diskdrive. This change will allow for an 
unlimited number of disks to be copied every month. 
Because of this, I will start handling the ANAL06 magazine 
disks as well as the club diskettes. 


DC/Novatari BBS 


BBS Phone Number........ (703) 425-6698 

SYSOP (John Brophy)..... (703) 425-7169 

Passwords (Joe haters).. (703) 430-1215 


Note: Loaoina on. Call the BBS. After you are connected 
and answer the linefeed question, the board asks you for 
name or member number. The next four characters you type 

must be a pound sign and a 3-diait number, e.o. 1264 . If 
you correctly type a member number, you wilioe asked for 
your password, andif you type that correctly, the board 
will respond ’NELC0NE, NEHBER!’ Your current number and 
password appear above your name on the label of Current 
Notes. g 
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Novatarx 
Breenbriar 


5 NORTHERN VIRGINIA ATARI USERS GROUP 
Community Center —i~ Chantilly, Va. 


Club Officers 


President........ 

Vice-President... 

Treasurer........ 

Secretary........ 

Prog Chairman.... 

Disk Librarian... 
ftsst. Disk libr.. 
Hembership....... 


Joe Haters 
Steve Steinberg 
Curtis Sandler 
Jim Stevenson 
♦ Vacant * 

H. Evan Brooks 
Diana Burdt 
t Vacant * 


(703) 430-1215 
(703) 435-2962 
(703) 734-9533 
(703) 378-4093 

(703) 354-4432 
(703) 425-5073 


Novatari Meetings 

are on the 2nd Sunday of each month in the Breenbriar 
Community Center on Strinqfellow Road in Chantilly, 
Virginia. Stringfellow Road, also' known as Route 645, 
runs south from US 50 a little more than two tiles west of 
the Fair Daks Shopping Hall (intersection of 1-66 and 50). 
There is a traffic light where Stringfel low Road teets 
route 50. The Breenbriar Community Center is on the 
left-hand side of Stringfellow Road, 1.4 tiles south of 
50. There is a stall parking lot in front and a larger 
one just north of the center (that is, just before you get 
to the center). The aeeting root is available fro* 5-9 
pm. He offer a BASIC tutorial frot 6:00 to 6:40 each 
month. He also offer a tenthly arcade tournament for the 
young at heart. A short business meeting starts at 6:45 
and is followed by brief demonstrations of software. Each 
eonth, at least two of the demonstrated prograts are given 
away as door prizes. A formal presentation highlighting a 
specific software or hardware product begins at about 
7:30. 


Potpourri : A monthly door prize activity was inaugurated. 
The policy was established that the winner had to be 
present and a person could win only one prize at any given 
meeting. A random drawing from the NOVATARI membership 
list awarded the gate Sea Fox. to Michael Barry, a new 
member. A second drawing from the list of. those attending 
the meeting (members or not) yielded the game of Drelbs to 
Michael Pham. John Baum of STS Video in Falls Church got 
into the swing of things by contributing spontaneously a 
diskette storage case as another door prize. Thus a third 
drawing took place fro* the attendees list with Roland 
Babler being the lucky winner. 

Alan Bretzin presented an unannounced demonstration.of a 
"software switchable cartridge" he has developed. He 
specifically showed how ATARI DOS could be put on a 
cartridge, and essentially banked-switched in to give full 
access to all DOS functions without affecting programs 
still resident in RAH. 

Program : Joe Haters demonstrated an ATARI 1027 printer 
lent by Future Tech of Springfield, Va. Boyd Horse 
continued the printer review with demonstrations of the 
Epson and Prowriter. He also showed how the program 
Hegafont could be used to redefine character sets for the 
printers. * 

Coming Events 

June 10: Rene Hertz will demonstrate a four-user system 
with several ATARI computers sharing common disk drivels) 
and a printer. Rene will also demonstrate a software 
management program that allows one of the units to monitor 
the activities of the other three. 


Novatari Minutes 

20 Hay 1984 
Jim Stevenson 

Announcements: Joe Haters was elected president of 
NOVATARI thus leaving vacant the position of program 
chairman. Since many possible programs are already lined 
up, the job of program chairman should not be 
overwhelming. It provides an excellent opportunity for 
new blood to inject new ideas. Also needed is a 
membership chairman. 


He will also hold our semi-annual SHAP HEET at the June 
meeting. If you have any equipment or software you would 
like to sell, bring it along and see if you can’t find an 
interested buyer. There should be lots of bargains 
available so don’t miss this meeting. 

July 8: The 1450 has yet to make an appearance, but that 
doesn~t mean you can’t upgrade your ATARI. The AJR 8000 
allows you to run CP/H software on your Atari as well as 
HSDQS. Rob Stewart of Future Tech will tell us all about 
the m and the new capabilities your Atari could have. • 
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AURA: Atari Users* Fiegional Association 

Longbranch Public Library — Takoma Park, Md 


Club Officers 


President. 

Vice President... 
Treasurer........ 

Rec Secretary.... 

Membership....... 


Bruce McLendon 
Dave Haseman 
David Curry 
Rochelle Follender 
Richard Stoll 


(301) 587-7890 
(301) 681-5776 
(301! 384-5514 
(301) 530-0243 
(301) 946-8435 


AURA Meetings 

are held on the 1st Wednesday of. every eonth at 7 pm in 
Room One of the lono Branch Public Library on Garland 
Avenue in East Silver Spring. Take the Beltway (1-495) 
to Exit 29-B South University Blvd East, Route 193). 
Follow University Blvd. East (Route 193) to the second 
light (Piney Branch Road). Turn right on Piney Branch 
Road and continue to the second light (Arliss St). Turn 
right on Arliss St, past the apartments to Sari and 
Avenue. Turn right on Garland Avenue. The Long Branch 
Library is on the corner. Park in the Library’s lot. 
Due to constructor, please use the upper-level entrance. 


AURA Minutes 
2 May 1984 

1. Bruce will not be able to attend the meeting tonight 
or next eonth, Bob is substituting. 

2. COMPUTER AGE is still having a 501-off ATARI sale. 

3. Membership cards are in production. 

4. The next meeting is June 6. 


10. DOS 3 for the 1050 will be available soon. 

11. Ho Sherman reported: Review, a free magaiine from 
ATARI is geared to educators. Volunteers are needed to 
bring eguipment. The club’s label program doesn t work 
on the Gemini SOX, but Mo has revised the program and 
will give it to club members. 

12. There is a computer show at the Convention Center 
next weekend, and one at the Baltimore Convention Center 
May 10-13. 

13. Neal Jacob demonstrated "Auctioneer" a two-player 
simulation program he wrote and is selling for $11.95 on 
tape or disk. 

14. The library system is being revised. Starting next 
month, members will receive library cards. New disks 
(35 and 36) will be available for $4.00, (Checks can be 
made payable to “AURA".) The archives (all previous 
disks) can be borrowed from ACA by leaving your library 
card. For the time being, cassettes will be duplicated 
on the old, reguest basis. Annotated disk descriptions 
will be available on disk. 

15. Mike used VISICALC to do his income taxes and he 
demonstrated his set-up. He thought it was very useful 
to see the effects changes would make. 

16. VISI Corp is filing for bankruptsy. You can buy 
VISICALC under the ATARI label, 

17. Flight simulator II and the Archiver II should be 
available soon, 


5. Silver Spring, Kensington, and Long Branch libraries 
are possible meeting places for next year. 

6. Chris of ACA gave the SYSOP report. It was not a 
good month for the bulletin board but it should be up 
soon, between 6 pm and 10 am, only. 


18. To get a one-year subscription to “ATARI AGE", send 
$1 with your name, address, age and telephone number to: 
ATARI Club Membership Department, 120 Brighton Road, 
p.0. Box 5065, Clifton, N.J. 07015. 

19. ACA has LJK’s DATAPERFECT for $49.95. 


7. BASIC XL from OSS gives 5K more bytes, 

8. Version C of ATARI BASIC is not yet available. 

9. Between 12 and 7 pm Eastern time (with a lunch break 
from 2-3), the ATARI BOO number is answered. 


20. Mo demonstrated EPYX’s “Dragonriders of Pern* based 
on the novels by Anne McCaffrey. 

21. If there’s enough interest, the club may distribute 
WABASH disks for $15/10. 
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Capital ATR Peripheral Micro-Users 


By John Lauer 


The initial meeting of the ATR-8000 CPM group was 
held on May 24, 1984. The primary intent of this meeting 
was organizational in nature. Among the matters discussed 
were the initiation of a disk library, future location of 
the meetings, dues, and the relationship to other Atari 
Users Broups in the Washington, D.C. metropolitan area. 

A disk library consisting of approximately 4 to 6 
SS/DB disks will be available no later than July. In the 
development of the public domain software library, initial 
emphasis will be placed upon program aids/templates 
covering dBase II, Super Calc, word processing program 
patches, and utilities designed to improve file handling 
and disk manipulation. Contact has also .been initiated 
with the Austin, Texas ATR/SIG to obtain several of their 
program library disks. A nominal fee will be charged to 
members to purchase all CRM library disks at the meetings 
to cover operating costs. 


The next meeting is scheduled for June 26, 1984 at 
6:30 PM (4th Tuesday of month). The meeting will be held 
at the Public Library in Oxon Hill, Md. The site is 
located near the Woodrow Wilson Bridge and is just off the 
beltway. Specfically, the directions are: take beltway 
to Maryland exit 14 East , St. Barnabas RoadSmerges to 
Oxon Hill Rd), proceed 1/4 mile, the library will be on 
your left . The meeting will be held in the Author Room . 
(Library phone number is 301-839-2400.) 

Since the CPM group is in its formative stages, it 
would be appreciated if individuals planning to attend the 
June meeting call Bob Kelly on 301-839-7377 between 
6:30-9:00 PM prior to the meeting in order to ensure 
adequate accommodations are made available at the library. 

The feature speaker at the next meeting, Frank 
Huband, will discuss the ATR Copower-88 hardware option 
which permits MSD0S operation with the Atari. * 


CP/M FOR THE 
ATAR X 

... . .. ......~™~~\ 



ATR8000 i5 a 64K microcomputer 
that runs CP/M 2.2 and inter— 
■faces printer, modem, and drive 
ports. In ATARI mode no 850 
interface is required and the 
ATR8000 acts automatically as a 
48K printer buffer. 

For orders or information call 
or write: 

LHKEnterprises 
8309 Bella Vista Terrace 
Ft. Washington, Md. 20744 
(301)339-7377 


ROBiN 


Inc. 


THE SMALL COMPUTER, 

SUPPLIES STORE 

LABELS 


3 * 15/16(5.000) 

$1600 

PAPER 


9X11 All weights 

$2695 

RIBBONS 


TRS80 


line printer III & IV 

$6.50 ea 

Daisywheel II (Ricoh) 

$4.75 ea. 

DIABLO 620 film 

$7.45 ea 

Hytype II film 

$46.50 doz. 

NEC 5500/7700 film 

$63.00 doz. 

5500/7700 cloth 

$69 90 doz. 

3500 film/cloth 

$11.90 ea. 

8023 cloth 

$4.95 ea 

ITOH Prowriter 

$4.95 ea 

QUME 1 film/cloth 

$33 50 doz 

IV film 

$54.00 doz. 

IDS 560 

$5 75 ea. 

EPSON MX 70/80 

$8.50 ea 

MX 100 

$18.00 ea. 

LOAD YOUR OWN 

AND SAVE! 

Refills for Diablo Qume 


Ricoh NEC 

$1.50 

Epson MX 70/80. 


Prowriter NEC 8023 

$3.50 

Epson MX 100 

$899 


PRINTWHEELS 
Diablo Plastic 

Diablo Metal 
Diablo 620 
Qume 


$6.40 
$41.50 & 49.95 
$11.40 
$6.40 & 7.90 


SPECIAL Bulk Pack Diskettes 
b l A" 10 sec. 

SS/DD SCOTCH $1.85 

5Vi 16 sec. 

SS/DD Wabash $1.65 

While They Last! 

We also stock Verbatim. Kybe. 
Memorex. IBM. Maxell 

NEW! World’s Best Floppy! 

The Brown Disk 
5 l /4 Single and Double Side 
48 TP! $29.95 
96 TPI $39.95 


Hours: Monday thru Friday 9-5, 
Saturday 10-2 


560-5900 

8304 Hilltop Road 
Fairfax, Virginia 22031 
(Merrifield Area) 

UPS Shipping 
FOB Fairfax, VA 
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ATARI SCUTTLEBITS 
By Bob Kelly 


Over the next two months mb are going to exaaine 
those computer magazines that clutter our ho»es. Do tie 
really need to read six aagazines or more a tenth? Is 
it possible to cut back while still maintaining a growth 
in computer knowledge? How can we better utilize the 
tite spent reading cotputer sagazines tin other words, 
get tore out of what we read)? Are tost tagazines 
really serving the interest of the consuaer who pays for 
the inforeation or just prosoting the tamifacturers’ 
product? In order to answer these questions and many 
•ore, a rating systes will be developed and by July you, 
the reader, should be better able to judge which 
tagazinefs! meets your needs best. 

The proliferation of cotputer tagazines continues 
despite the warnings fro# Hall Street that a shake-out 
in the industry is itiinent. Presently, there are so#e 
200 to 400 tagazines covering the cDeplete spectrum of 
hardware/software in the aarket. Not only has the 
number continued to grow but also the individual size of 
each tagazine. Page proliferation has occurred as tore 
and sore ads are placed with individual tagazines. The 
growth in pages per issue satisfies both the need for 
increased revenues by publishers as well as reader’s 
desire to find "the best buy". I recently overheard a 
conversation between soee postal union employees on this 
topic. They were discussing union strategy for the next 
round of contract negotiations. It seems that sote 
union members want to place a 1iAit on the number of 
pages a computer magazine «ay have in any single issue. 
They stated that many magazines are larger than the 
telephone directory and worst of all require monthly 
delivery. Alternatively, if this strategy fails, the 
union will seek a more comprehensive insurance 
compensation program to cover cl aits for what has become 
known as “computer-art". Could it be that we will be 
the cause of higher postal rates? 

Why do we buy these magazines? The reasons 
generally put forth include some or all of the 
following: 

—> The desire to find out how to use the machine just 
purchased (relates to the novice). Needless to say, 
this is just backwards. Any prospective buyer should 
read some general articles prior to purchase in order to 
ensure the computer meets his specific requirements. 


Sermon aside, the fact retains that many do not read 
sufficiently prior to purchasing a tachine. Thus, it is 
an important function of a cotputer tagazine to advise 
the novice. Nhich magazine do you think is best at 
this? 

--> Users buy the magazines to read the ads for discount 
prices on hardware/software (not me! I ac happy to pay 
up to SOX more here in Washington, D.C.) 

--> Users attempt to improve their programming skills. 
Magazines supply useful tips and/or sequential monthly 
lessons. Some magazines have attempted this but the 
quality as well as clarity of the instructions vary 
widely. This is an ambitious effort for any magazine 
and I commend those few that have the "guts" to 
undertake such efforts. 

—> It is a "cheap" way to obtain some games - if you 
don’t mind typing. For us Atari users, it turns out 
that almost all magazines produce just what we pay for - 
cheap games. There is a notable exception to this rule. 
One tagazine consistently produces high quality public 
domain games for the Atari which are worth more than the 
enforced typing practice. Do you know which one? 

--> Those who have owned an Atari for some time realize 
its potential extends beyond being solely a “game" 
machine. Thus, they search monthly for practical 
business or home finance applications, tips, and 
professionally orientated product reviews. The 
Atari-directed magazines have so far politely told this 
group to shove-off (let’s publish yet another obscure 
article on DLI’s). 

—> Some readers want to obtain useful utility programs 
designed to improve the efficiency of their computer 
time. Here many magazines try but few succeed. Those 
few have produced some great utility programs. Can you 
name your favorite? 

--> Finally, since you are paying $3.00/issue, you 
expect the magazine to have your interest as its number 
one priority. Thus, it should keep you abreast of 
aarket events affecting Atari so you can make informed 
judgements regarding the considerable investment you 
have in hardware/software. Unfortunately for most, the 
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rule appears to be "let the buyer beware*. It often 
seess that nothing is printed which aay reflect 
adversely upon Atari, or any other coaputer 
aanufacturer, out of concern that they aay not advertise 
in their aagaiine. In ay opinion, there is one 
exception - although its editorials soaetiaes aiss the 
point. 

Hold, it ... we have just created our rating systea. 
Let’s review it again. 

Criteria for Rating Atari-Related Magazines: 

1. Instructional content for novice. 

2. Ad content diversity. 

3. Prograaaing tutorials. 

4. Baae quality. 

5. Professional uses, product reviews. 

6. Utility prograa developaent. 

7. Consuaer awareness. 


Now, let’s look at soae of the aagazines against 
which we will apply our criteria. 

The top five aicro-coaputer aagazines, ranked by 
circulation, plus the circulation figures for the 
Atari-only or Atari-related aagazines are as follows: 


Monthly Circulation Data 

(as of January 1984) 


1 . 

Personal Coaputing 

528,000 

2. 

Byte 

428,000 

3. 

* Coapute 

420,000 

4. 

Popular Coaputing 

347,000 

5. 

* Creative Coaputing 

305,000 


* Personal Software 

180,000 


* Antic 

100,000+ 


• Analog 

80,000 


* Atari Connection (Quarterly) 160,000 


It is mediately obvious froa the above list that 
solely gaae review aagazines are not included - the 
reasons why I will leave to individual interpretation. 
However, I will add (1 can’t resist), this is one area 
where individual subscription costs could be cut quite 
easily. Further, one, possibly two, Atari related 
coaputer aagazines that should qualify for the'list are 
not included. The reasons for their exclusion relate to 
a nuaber of factors. Suffice it to say that the intent 
of this article is to cover the aost popular and widely 
read coaputer aagazines dealing with Atari. Finally, 
soae of the aagazines are not designed to aeet all the 
criteria by which we will rate thea. An initial 
iapression aay be that this will yield an unbalanced 
rating systea. On the other hand, I believe that if a 
aagazine is to intentionally narrow its scope, it should 
be dearly superior in those categories it does cover if 
it is to warrant your purchase. 

Well, next aonth, just like the old aovie serials, 
we will find out who did what and to whoa. See you then 

. Oh, by the way, coaaents and suggestions on 

your favorite aagazines are welcoae prior to July 15, 
1984. Send to: Bob Kelly, 8309'Bel la Vista Terrace, 
Ft. Washington, Hd. 20744. The aost interesting 
coaaents will be published in the August issue of 
Current Notes. • 


\ 

SAVE YOURSELF SOME TIME! 

With The Programmer’s Toolkit and Atari BASIC 


Write Programs Faster! Thirty-one powerful routines are at 
your fingertips — things like decimal alignment and kid-proof 
keyboard entry. You can even play background music while 
your program executes! 

Write Faster Programs! Use the speed of machine lan¬ 
guage for disk file reads and writes, string searches, text 
justification, and player-missile graphics. And more! 

Learn Fast, Too! You don’t need to learn a new language — 
it’s all done with BASIC. A user’s manual guides you through 
forty-two diskette examples — no lengthy typing! 


Time is Money — but just a little! Thirty-one routines for 
$ 29.95 — that’s less than a dollar each! A free loan analysis 
program is included. 4 $ 


Sources - Wall Street Journal, April 9, 1984 and 
direct contact with publishers. 


The Programmer’s Toolkit $ 29.95 

(on diskette for Atari 400/800 with 24K RAM) 


* Denotes those aagazines that will be exaained 
in this colusn. Note, of the 160,000 in 
circulation for the Atari Connection, about half 
represents subscription and newsstand sales. 


At Vbur Dealer or from: 

SureSoft (918) 743-5363 
8177 S. Harvard, Suite 428 
Tulsa, Oklahoma 74137 


Add $2 shipping and handling. VISA and MasterCard accepted by phone OK residents 
add 5% sales tax. Allow "wo weeks for personal checks. 

Dealer inquiries are invited . 

Alan is a trademark of Alan. Inc. The Programmer s Toolkit is a trademark of SureSoft 


ft 
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Musical 
By Jay 


Hello, and welcome back to Musical Notes. Last month 
ee Mere discussing uhat sound is and Mom your Atari makes 
it. This eonth I Mill explain how to lake different 
lengths of specific frequencies (see last eonth’s column) 
into a logical pattern favorable to listen to, which is a 
good definition of the eord music. The best nay to learn 
about anything is to have something tangible in front of 
you, instead of trying to comprehend a mass of theories. 
So 1 have drawn diagrams and Mill try to explain them. 

Sound, as I stated in the last column, is a set of 
vibrations played at a speed between 20 cycles and 20,000 
cycles per second. If you play this frequency for a 
specified amount of time, you produce what is called a 
note. There are different types of notes, each based upon 
a different set amount of time. Figure 1 has a set of the 
most used durations in music, and their corresponding note 
values. The first one is called a whole note, and is the 
basis for the rest of the notes. A whole note is 
approximately four seconds long. Every other note is a 
fractional part of this and each one has a duration of the 
specified fraction of a whole note. 


FIBURE 1 


of ql- J- 


—©- 

Whole 


Half Quarter Eigth Sixteenth 


For instance, a quarter note (third from left) has a 
duration of about one second. Going back to the BASIC 
statement'. SOUND 0,121,10,10 from last month, we can write 
a small BASIC program to play any of these note values. 
Figure 2 is such a program. When RUN, the program will 
ask you for a note value. Type ’N’ for a whole note, ’H’ 
for a half note, ’Q’ for a quarter note, and so on. The 
program will play a frequency for that specified amount of 
time. 


The number 121 I said, was the particular frequency 
that corresponded with the note called ’middle C’. Well, 
you may ask, just what is this mysterious middle C?! 
Technically, each frequency value that is put in the SOUND 
statement is a musical note. However, they are all not 
’true notes’ because some of then do not fit in the 
chromatic scale. The chromatic scale is a set of pitches 
that define all the notes playable by an instrument such 
as a piano. 
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FIGURE 2 

10 DIM A*(1),N*(5),T(5> 

20 N$="NHQES" 

30 FOR 1=1 TO 5:READ X:T(I>=X:NEXT I 
40 DATA 4,2,1,.5,.25 
50 GRAPHICS 0 

60 POSITION 6,3:? “Type of Note Duration (Sec)" 

65 POSITION 6,4:? "========-== ==============" 

70 POSITION 8,5:? ’’AfHOLE’’:POSITION 28,5:? “4“ 

75 POSITION 8,6:? "/fALF*:P0SITI0N 28,6:? “2" 

80 POSITION 8,7:? “flUARTER“:P0SITI0N 28,7:? "1“ 

85 POSITION 8,8:? “£IGHTH“:P0SITI0N 27,8:? “1/2“ 

90 POSITION 8,9:? -SIXTEENTH”:POSITION 27,9:? *1/4“ 
95 POSITION 6,12:? "TYPE OF NOTE (WHQES)“i:INPUT A* 
100 TIME=0 

105 FOR 1=1 TO 5:IF A$=N$(I,I) THEN TIME=T(I) 

106 NEXT I 

110 IF TIME=0 THEN GOTO 95 

120 FOR 1=18 TO 20:POKE I,0:NEXT I 

130 SOUND 0,121,10,10 

135 SEC=(PEEK(18)*65536+PEEK119)*256*PEEK(20))/60 
140 IF SECCTIME THEN GOTO 135 
150 SOUND 0,0,0,0 
160 GOTO 95 


Music can be translated from hearing sounds directly 
on paper. The note durations in figure 1 are the symbols 
used for varying lengths of musical notes. They are 
placed upon a set of lines called a staff, and their 
position on the staff represents the musical note value. 

Figure 3 is the musical staff. Each line and space 
between lines represents a different frequency. The funny 
curly-cue symbol taking up the upper five lines of the 
staff is called a treble clef. Similarily, the backwards 
’c’ with two dots next to it on the bottom five lines is 
called a bass clef. 


FIGURE 3 
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The bass clef is a subdivision of notes that are 
typically low in frequency. In order for a note to be 
low, and in the domain of the bass clef, it has to be in a 
position under middle C. find, in order for a note to be 
called high and in the domain of the treble clef, it must 
be above middle C. So, middle C must be the divider 
between the low and high notes. 


If'we go to the space between the line that middle C 
is on and 'the very next line above it, we are at a 
frequencv called D. Looking at figure 4, the next note, 
which is the line above D, is called, strangely enough, E. 
F is the next note, which happens to reside on the space 
between the first (E) and second (6, as you might have 
already guessed) lines above middle C. Now comes the 
tricky part. The very next space is not H. There are no 
more musical note names above 6. So, what is that 
position called? It is called ft, because the notes just go 
in circles. You can start at any note you want, then go 
alphabetically until you reach 6, then you go back to A 
and start over again (and again and again...) 

FIGURE 4 
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Fine 

Does 

Boy 

Good 

Every 


Gas 

Eat 

Cars 

All 


Dr 


Around 

Fool 

Don't 

Boys 

Good 


vou might also notice another problem There are 
sore than one of every note. How can that be, you might 
think. In between the third and forth lines there lies a 
note labeleo C. This is 7 notes up from middle C. He 
give both of these notes the same name, C, but we say they 
are in different ’octaves’. An octave is all of the notes 
between and including two notes that have different 
pitches yet the same name. Two notes in different octaves 
sound similiar, except one is lower or higher. Since the 
exact relation in sound between a note in two different 
octaves is very hard to describe in words, I will try to 
show you through the use of BASIC. 

Type in a new variation of the ever-popular 
statement: SOUND 0,121,10,5 This will reduce the sound to 
half the volume. Now type in SOUND 1,243,10,5, This is 
telling the computer to produce a pure sound out of 
channel 1 at a frequency somewhat less then middle C 
(121). Listen carefully to the two notes being played. 
They should sound the same, yet one is much lower than the 
other. They are both the same note, C, but are in 
different octaves. If you go down 7 notes from middle C, 
you are at the note represented in BASIC as the value ^43. 

So, now you have a ’map’ of the musical staff. One 
hint in trying to remember what note names go where is to 
memorize little phrases or words, where each line or each 
space is represented as a letter in the phrase. Looking 
at figure 4, we notice that if we start at the first space 
of the top staff and go up by spaces, the note names spell 
the word ’FACE’ . ft well-known phrase for learning the 
lines on the top staff is ’Every Good Boy Does Fine’, 
where the first letter of every word represents the note 
name of each line. Starting with the bottom line of the 
Bass staff and working up line by line, we get ’Good Boys 
Don’t Fool Around’, which is a logical conclusion to the 
aformentioned phrase. The spaces on the Bass clef go with 

the phrase ’All Cows Eat frass’ or, for modern times, ’All 
Cars Eat Gas’. 

Alot of you are probably saying: Hey, what about 
sharps and flats, knucklehead! Nell, since I am running 
out of room, I will discuss them next month along with 
using the note names and length values to play actual 
music. 


Please send contest entries (see last month’s 
column), complaints, quips, and comments to: 

Jay Serber 

3639 N. 36th Road # 

Arlington, Va. 22207 
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BASIC BEAT 
By Joe Waters 


For the past four tenth s we have been working on a 
diskette library proqrat as a teans of illustrating 
various BASIC techniques. This aonth we were to start 
work on actually building our database. We will build a 
database, but it won’t be exactly what you anticipated. 

As part of the standard NOVATARI teetings, 1 teach 
a sitple BASIC tutorial. For the first several months 
of the tutorial, we worked on an arcade-type program 
called BLOCKADE. With that finished it was time to 
start work on another program. I offered several 
different possibilities and the one selected was a 
program called WORD BUILDER. 

This program can be used as a vocabulary builder. 
It offers two basic options. In one, a word appears on 
the screen along with five alternative definitions. By 
moving the joystick, the player moves from one 
definition to another. Pressing the button indicates 
the definition selected. If the selection is correct, a 
new word and five new definitions appear. If incorrect, 
the definition selected disappears and the player gets 
to choose again. The program is timed and each player 
tries to get as high a score possible in the time 
allotted. The second game option is essentially similar 
except that the player sees one definition and five 
possible words to match it with. 

In the original version of WORD BUILDER, 3 included 
100 different word/definition combinations in data 
statements within the program. However, in preparing 
the program for the tutorial, it occurred to me that 
this format was inappropriate. Not only would it be 
uninformative to list a program with 100 DATA 
statements, but the words I was using might not be 
appropriate for many other users. It would be far 
better if each user could construct his or her own set 
of word/definition combinations. 

The WORD BUILDER game can be used by children to 
improve their vocabulary as well as by adults. However, 
the basic data needed by the program to sake it 
interesting to an adult would make it far too difficult 
for a second-grader. Similarly, if you have several 
children of different ages, you might want different 
vocabularies for each child. Thus, it would be nice if 
the same program could use any of several different 
databases. 


With these considerations in mind, I decided to 
provide a DICTIONARY BUILDING program as a front-end to 
the WORD BUILDER program. Using the DICTIONARY program, 
each user could build unique, individual, dictionaries 
that would then be used as the basic data file used by 
the WORD BUILDER program. 

In constructing the WORD BUILDER DICTIONARY 
program, I found that it had all of the basic features 
of a database management system. I decided, therefore, 
to depart temporarily from our previous project, and 
devote this month’s column to this simple utility 
program. (1 confess that I was also heavily influenced 
by the time constraints imposed by creating this program 
and also assuming the editorship of Current Notes. ) 

First of all, what do we want to accomplish? We 
want a program that will allow us to build and maintain 
one or more databases of words and their corresponding 
definitions, Build and maintain means we should be able 
to add records to the database, revise information 
already in the database, and delete records we no longer 
want. Of course, we want the user interface to be easy 
to use, fast, and foolproof. 

WORD BUILDER DICTIONARY satisfies all these 
considerations. When you run the program, after a brief 
display of a title screen, you are asked which 
grade-level dictionary you want to work with. You 
choose a level (from 1 through 9) and the program reads 
in the current dictionary for that grade level. If a 
dictionary does not exist, one is automatically created. 

A single display is used for all update procedures. 
It provides a box for the word and another box for the 
definition. At the bottom of the screen is a prompting 
to remind you of the various one-letter commands that 
are available: First, Last, Next, Previous, Suit, Add, 
Delete, Change, Sort, and Write. The firt four commands 
are used to step through the database. Typing “F" (for 
First ) positions you at the beginning of the dictionary. 
The first word in the dictionary and its definition 
automatidly appear in the appropriate boxes. Typing 
"N” (for Next ) brings up the second word. *L“ (for 
Last ) takes you to the end of the dictionary, “P“ (for 
Previous) displays the previous word in the dictionary. 
Of course, safeguards are included to prevent you from 
stepping beyond the last (or before the first) word. 
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Tc add s word to the dictionary, enter K A". The 
area inside the WORD ocx is whited out and you simply 
type in the new word. Constraints are built into the 
program so that only reasonable characters can be input 
into either the word or definition. In particular, none 
of the control characters will work and you cannot move 
outside of the box except by pressing the RETURN key. 
When you have typed in the word and pressed RETURN, the 
program first checks t see if that word already exists 
in the dictionary. If it does, the current definition 
for that • word is automatically displayed in the 
definition box. If not, the cursor is moved to the 
definition box and you can input the definition you 
want. When you are done with the definition, press 
RETURN and the word is added to the end of your list of 
words and definitions. 

Since the Add function automatically searches the 
current word list to see if the word is already in the 
list, it can be used as a locate command. That is, if 
you want to find any particular word in the list, use 
the Add option and the progra® will first search for 
your word and then display it when, and if, it finds it. 

To delete a word, enter “D". The progras will 
print a questioning prompt to be sure you really want 
the word and its definition deleted. If you answer Yes, 
the word is deleted. 

If you see a word or definition you would like to 
change, enter “C\ You will be positioned in the word 
box. Enter whatever changes you want, or if none, 
simply press RETURN. You are then positioned in the 
definition box, flake your changes and press RETURN. 

Words do not have to be sorted, but if you want 
them in alphabetical order, enter "S" to trigger the 
sort option. This is a simple bubble sort and, if you 
have a hundred words in the dictionary, can take several 
ainutes. If you have a faster sort routine available, 
go ahead and use it. 

None of these changes will have any iapact on the 
database stored on your diskette until you use the Write 
option, When you do, the entire list currently in 
memory is written out to disk. When you choose the Quit, 
option, you will be reminded of the necessity of saving 
your changes on disk and given an opportunity to do so 
if you like. 

Although this program was written to build 
dictionaries for WORD BUILDER, it can be used to sake 
any number of alternative databases. For example, what 
if, instead of words and definitions, you stored a state 
and a state capital or a year and the best picture for 


that year or a jersey, number and one of the Redskins? 

Any of these could be used as inputs to the WORD BUILDER 
program (which 1 will publish in this column some time 
in the future) to create a quiz game for states, movies, 
or football. 

The complete program is listed below, It assumes a 
word size of at most 10 characters and a definition size 
of 34 characters, Variables are dimensioned to holo up 
to 100 words. You could, of course, make the word size 
larger and allow for more than 100 words by changing the 
appropriate lines. I will discuss how the various parts 
of this program fit together in the BASIC tutorial at 
the N0VATARI meetings over the next few months. 

10 REN HHHHHiHHHHHItHiHHIHHHHHHHIHi 

15 REN * WORD BUILDER DICTIONARY * 

20 REN * By Joe Waters, (c) 1984 ♦ 

25 REN HHHHHimmHmHiHIHHHHIHIHifHHi 
30 REN This program allows you to build one or more 
35 REN dictionaries for use with WORD BUILDER. Each 
37 REN dictionary can be geared to a different grade 
40 REN school level. Words can be added, deleted or 
45 REN revised as needed. 

50 REN 
52 REN 

55 B0BUB B55:REN Write out title, initialize, get data 
60 S0SUB 415:REN Update dictionary as needed 

65 END 

66 REN 

70 REN HHHHHHHHHHHHHHHHHHHHHHHtH 
75 REN * SHORT SUBROUTINES 

80 REN 

84 REN 

85 REN GCHAR: Get single character from keyboard 

90 OPEN *2,4,0,"K:":GET 12,X:X*=CHR$<X):CLOSE 12:RETURN 
95 REN ****mmtmm**m*m»**m*m#*Hmt**«*- 

99 REN 

100 REN 6L1NE: Bet line of input from keyboard reading 
105 REN upto Linn characters starting at pos. 41 ,11. 

110 J=0:REN J keeps track of character count 

112 POSITION XI+J,YI+2:’> CHR$(20):REN Print pointer 
115 GQSUB GCHAR 

120 IF 4=155 THEN POSITION 4I+J,YI+2:’ " 'ISGTO 165 

125 IF X=126 AND J=0 THEN GOTO 140 

130 IF 4=126 THEN 4»=* GOTO 145:REN back space pressed 

132 IF J=LINIT THEN GOTO 140 

135 IF 4>=32 AND 4<=95 THEN J=J+l:6DT0 145 

140 FOR V=14 TO 0 STEP -llSOUND 0,180,10,VlNEXT V:GOTO 112 

145 POSITION 4I+J-l,YI+2:? “ V.REH Erase pointer 

146 POSITION 41+M,YI:? 4*;:REN show character on screen 
150 IF 4=126 THEN POSITION 4I+J,YI+2:? " "::J=J-1 

160 GOTO 112IREN Get another character 
165 Ht="0NE N0NENT..GQSUB HESSA8E:N$= ,n 
170 REN Transfer screen contents to N$ array 
175 FOR 1=1 TO LINITILOCATE 4I+I-1,YI,Z 
180 IF 7=160 THEN POP :60TD 190 
185 N$tl,II=CHR«(Z):NE4T I:RETURN 
190 N$(I)=BLANKt(I,LI NIT >:RETURN 
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195 REH m********************************************* 

199 REN 

200 REN LINE: Draw line of length LL 

205 FOR 1*1 TO LLI? CHR*118);:NEXT I:RETURN 
210 REN 

214 REN 

215 REN BOX: Draw box length*!!#*, top left corner*),) 
220 POSITION !,¥:? CHR4U7);:GQSUB LINE:? CHR$t5>? 

225 POSITION X,Y*1:? CHR4I124); 

226 POSITION X+LL+l.Y+l:? CHR4U24); 

230 POSITION X,Y*2:? CHR$t26)iIBOSUB LINE:? CHR*(3)5 
232 RETURN 

235 REN HHHHHHHHHHHHHHHHHIHHHHHHI 
240 REN NESSftSE: Display aessageS centered on line 17 
245 POSITION 0,17:? BLANKS(1,38); 

247 XL=(40-LEN(Hi))/2:POSITION XL,17:? H$; 

250 FOR 3=14 TO 0 STEP -0.8:S0UND 0,100,10,3:NEXT J 
255 SOUND 0,0,0,0:RETURN 

jao REN ************************************* mt **P* m 

264 REN 

265 REN PAUSE: Wait awhile 

270 FOR 33=1 TO WAITlNEXT J3:RETURN 
275 REN 

280 REN WDATA: Write dictionary out to disk file FNt 
285 N$=’WRITIN6 DICTIONARY TO DISK ...":60SUB NESSA8E 
290 CLOSE il:OPEN tl,8,0,FN$ 

295 PRINT tl;TOTAL 

300 FOR 1=1 TO TOTALlGOSUB SWORD 

305 PRINT tljWDEFt 

310 NEXT 1:CLOSE *1 

315 NS=“FILE SAVED, ENTER NEW COWHAND*:60SUB HESSA6E 

316 RETURN 

320 REN HHHHHHMHHHIHHHHHHHHHmHHH 

324 REH 

325 REN SDATA: Sort words alphabetically 
330 N$="SORTINS LIST ...“:G0SUB HESSABE 
335 FOR 1=1 TO TOTAL-1IPOSITION 30,17:? I; 

340 FOR 3=1+1 TO TOTAL 

342 I1=46*(I-1>+l:12=11+9:JI=46*<3-1>+1:32=31+9 
345 IF WORDS(31,32)>W0RDt(ll,I2) THEN GOTO 360 
350 13=11 +45:33=31 +45: «DEFS {1,46) =NORDS U1,13) 

355 WORD*(II,I3i=WORD$(31,J3):WORDS!J1,J3)=WDEF$ 

360 NEXT 3'.NEXT I 

365 MS=“LIST SORTED; ENTER NEXT CONNAND":GOSUB NESSASE 

366 RETURN 

369 REN 

370 REN 

375 REN PWQRD: Put word/def into WORD! array 

380 11=46*(1-1)+1:12=11+45 

385 WORDS(II,I2)=WDEF$ 11,46):RETURN 

389 REN 

390 REN 

395 REN GWORD: Bet word/def fro* WORDS array 

400 11=46*41-I)+l:12=11+45 

405 WDEFS11,46)=WORDS111.12):RETURN 


410 REN ************************************************ 
415 REN * Display ®enu of choices 

420 REN HfHHHHHHHHHHHHmHHtHHfHHHH 
425 GRAPHICS OlPOKE 752,1 

430 position 8 ,i:? “mu mim nciiomr ; 

435 POSITION 12,3:’ "Total Words: TOTAL 

440 POSITION 2,20:LL=36:60SUB LINE 

445 POSITION 2,21:? ' first last Next Previous Quit”; 

450 POSITION 2,22:? ” Add Delete Change Sort Write 

455 POSITION 2,23:S0SUB LINE 

460 POSITION WX-l,WY-2:? "Word:”; 

462 ll=io:x=wx-i:y=wy-i:gosub box 
465 POSITION DX-l,DY-2:? "Definition:"; 

467 LL=36: X=DX-1: Y=DY-1:G0SUB BOX 
470 IF NUNBER>0 THEN 80SUB DDATA 

474 REN 

475 REH ************************************************ 

480 REN * Get Individual Coa*ands 

485 REN ************************************************ 

490 POSITION 25,3:? TOTAL;" "5 

495 POSITION 2,19:? "ENTER COMMAND: "i 

500 IF TOTAL=0 THEN NUMBERS:X$="A":GOTO 520 

505 GOSUB GCHAR:F0R 1=1 TO 10 

510 IF XI=ANS4(I,IS THEN POP :GOTO 520 

515 NEXT I:N$=”(IY0A1I3 C0#»A#D/>“:GQSUB NESSAGE:GOTO 490 

520 POSITION 17,19:? X$ 

525 IF Xt="F“ THEN NUNBER=1:GOSUB DDATA:GOTO 490 

530 IF XS=“L" THEN NUNBER=TOTAL:GOSUB DDATA:80TD 490 

535 IF X$=“N“ THEN NUNBER=NUNBER+1:GOSUB DDATA:GOTO 490 

540 IF Xt="P n THEN NUHBER=NUHBER-1:SOSUB DDATA:GOTO 490 

545 IF X$="A“ THEN GOSUB ADATAlGOTO 490 

550 IF X*=“N" THEN GOSUB WDATA:GOTO 490 

555 IF X$=”S” THEN GOSUB SDATA:GOTO 490 

560 IF X$=”C' THEN GOSUB CDATA:GOTO 490 

565 IF X$="B” THEN GOSUB EXIT 

569 REN 

570 REH If none of above, Bust be delete option 

575 H4=“* MEW M Hill SORE (Y/N> *”:60SUB NESSAGE 
580 GOSUB GCHAR;IF X$<>"Y" THEN GOTO 595 
585 WORD!(46*(NUMBER-1)+1)=WORD$i46*NUNBER+1) 

590 TOTAL=TOTAL-l:NUNBER=NUNBER-i 
595 GOSUB DDATA:GOTO 490 

600 REN ************************************************ 

604 REN 

605 REN DDATA: Get word/def and display on screen 
610 IF NUNBEROO THEN GOTO 615 

612 NUHBER=l:N$=“(fIPS7 WORD IN LISl i >":GOSUB NESSASE 
615 IF NUMBER< =TOTAL THEN GOTO 620 
617 NUN8ER=T0TAL:H4=”UAS7 M B lH LIST'.>":SOSUB NESSAGE 
620 I=NUHBER:GOSUB GWORD 

625 POSITION WX,WY:’ WDEF$(1,10) 

626 POSITION DX,DY:? WDEF$(ll,46i 

630 N$=“WORD NO. ":N$ilO)=STR$(NUNBER):60SUB NESSAGE 

631 RETURN 
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635 REM 

639 REM 

640 REM ADATA: fidd new word to dictionary 
645 IF TOTALOOO THEN SOTD 650 

647 M t= n mcmm'l fUU/": GOSUB MESSAGE:608UB DDATA:RETURN 
650 POSITION DX,DY:? BLANKt(l,36) 

652 POSITION WX,WY:? WHITE*(1,10) 

655 M*="(INP1/T NEN WOM)": GOSUB MESSAGE 

660 XI=KX:YI=NY:LIMIT=10:60SU8 GLJNElLET NEWWt=N* 

665 IF TOTALS THEN GOTO 700 

670 REM Check to see if WORD is already in dictionary 

675 FOR 1=1 TO TOTAL:GOSUB GWORD 

679 REM 

680 IF WDEFt(l,10)=NEWW* THEN POP IBOTD 690 
685 NEXT I:GOTO 700 

690 Ht="fMM ALREADY IN DJCTMAM.M'lGOSUB MESSAGE 
695 NUMBER-I:60SUB 6W0RD:G0SUB DDATA:RETURN 

698 REM 

699 REM Fill box with WHITE spaces 

700 POSITION DX,DY:? WHITE*(1,36) 

705 M*="(I NFI/T D£FINNI0/i.l":80SUB MESSAGE 

710 XI=DX:YI=DY:LIMIT=36:G0SUB GLINE:LET NEWD*=M* 

715 T0TAL=T0TAL+1:I=TQTAL 

717 WDEFt(1,10)=NEWW*:WDEFt(11,46)=NEWDt 

720 GOSUB PW0RD:NUMBER=I:60SUB DDATA:RETURN 

725 REM ************************************************ 

729 REM 

730 REM CDATA: Change word/definition 
735 M*="Revise Word":G0SUB MESSAGE 

740 POSITION WX,WY:? NDEF*(1,10):POSITION DX,DY:? WDEF*(11, 
745 XI=WX:YI=WY:LIMIT=10:GOSUB GLlNElLET NEWW*=M* 

750 M*="Revise Definition":80SUB MESSAGE 

755 XI=DX:YI=DY:LIMIT=36:G0SUB GLlNElLET NEWD*=M* 

760 WDEF*=NEWW*:WDEF*(11)=NEWD*:I^NUMBER:GOSUB PWORD 

765 Mt="Word Revised; Enter New Command 0 :GOSUB MESSAGE 

766 RETURN 

770 REM ************************************************ 

774 REM 

775 REM EXIT: Leave program 
780 GRAPHICS 0 

785 ? :? "NOTE: IF YOU HAVE NOT USED THE N/U7E" 

79ft 7 "0PT1.QN.. Nil PERMANENT CHANGES HAVE". 

795 ? "BEEN MADE TO THE DICTIONARY DATABASE. 8 
800 ? :? "WOULD YOU LIKE TO WRITE THE CURRENT" 

805 ? “VERSION OF THE DICTIONARY TO THE " 

810 ’ "DISK BEFORE EXITING?" 

815 POSITION 2,101? "PLEASE ANSWER X OR N : 

820 60SUB GCHAR 

825 IF Xt="Y“ THEN ? X*:GOSUB WDATA:END 
830 IF X*=“N" THEN ? X*:END 

835 SOUND 0,150,12,10:WAIT=20:GOSUB PAUSE 

836 SOUND 0,0,0,0:GOTO 815 


840 REM HltHlHHtHHHIHHHHHHHHHHHHHHI 

845 REM ♦ Display Title, Initialize Variables, * 

846 REM * and Read in dictionary from disk. * 

850 REM ************************************************ 
855 6RAPHICS 2:SETCQLQR 2,0,0:POKE 752,1 

860 POSITION 8,1:? *6;"DATA" 

865 POSITION 5,21’ *6;"DICTIONARY" 

870 POSITION 8,4:? »6;"for" 

875 POSITION 3,6:? #6;"word buiNer" 

880 ? " By Joe Waters" 

885 ? * (c) 1984" 

886 REM HHHHHHHHHHHHHHHHHIHHHHHHf 

889 REM 

890 REM Program constants 

895 6CHAR=90:GLINE=110:LINE=205:B0X=220:HESSAGE=245 

900 PAUSE=270:PW0RD=380:GW0RD=400:EXIT=780 

905 WDATA=285:SDATA=330:DDATA=610:ADATA=645:CDATA=735 

910 WX=14:WY=8:REM The x,y location of the word 

915 DX=2:DY=13:REM The x,y location of the definition 

920 NUMBER=0:REN Position of WORD in list 

924 REM HHHHHHHHHHHHHHIHHHHHHHHHI 

925 T0TAL=0:REM Total no. words currently in dictionary 

929 REM 

930 REM Dimension arrays 

935 REM Program assumes max word size=10 and max 
940 REM def size=36. (Combined word/def size of 46.) 

945 REM Variables dimensioned to hold upto 100 words. 

949 REM 

950 DIM NEWWt(10),NEWD*(36):REM Used for new word/def 
955 DIM WDEFt(36+10):REM WDEFt holds word/def combination 
960 DIM WORD*(101*46):REM Holds list of word fc defs 

965 DIM BLANK*(46):REM Used to erase screen 
970 DIM Ht(38):REH Used to write messages 
975 DIM WHITE*(38):REM Used to print white spaces 
980 DIM AN5t(10):REM An array of acceptable answers 
985 DIM X*(1):REM Used for one-character inputs 

990 DIM FNt(15):REN Filename of dictionary file 

991 REM ************************************************ 

994 REM 

995 REM Initialize arrays 

1000 BLANK*(1)=" ":BLANKt(46)=" ":BLANKt(2)=BLANK*(D 
1005 REM Enter inverse video space for initializing WHITE* 
1010 WHITEt(l)=" ":WHITE*(38)=* ":WHITE*(2)=WHITE*(1) 

1015 WDRD*(1)=" ":WORD*(4600)=" ":WORD*(2)=W0RD*(1) 

1020 ANS*="FNPADSC8WL" 

1025 WAIT=200:G08U8 PAUSE 

1026 REM *********************************************** 

1029 REM 

1030 REM Determine grade level of dictionary file 
1035 GRAPHICS 0 

1040 POSITION 2,2:? "ENTER GRADE LEVEL FOR DATA FILE "! 
1042 INPUT X* 

1045 IF X*>="1" AND Xt<="9" THEN GOTO 1060 

1050 Ht=‘(ENW< A NIINBEN BEJNIEN 1 AND 9>":60SUB MESSAGE 

1052 GOTO 1040 
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1054 REN 

1055 REN Construct nane for data file 
1060 FNI=*D:DICTI0NA.RY":FN$(14)=W 
1065 6RAPHICS 0 

1070 ? !? "WORDS FOR 6RADE LEVEL X4;" ARE" 

1075 ? "STORED IN FN$(3,10);FNt(12,14) 

107? REN 

1080 REX Determine if file exists 
1085 TRAP 1090:OPEN ll,4,0,FNt 
1090 CLOSE ll:STATUS II,Z 
1095 IF 2=1 THEN TRAP 40000:GOTO 1120 

1100 IF ZO170 THEN ? "ERROR NO. ";:? ZlSTOP :RER ERROR? 

1101 REN HHIHHHHHHHHHHHHKIHHHHHIHH 

1104 REN 

1105 REN Create file; store total words(O) 1st record 
1110 ? :? "NEW FILE. INITIALIZING DICTIONARY..." 

1115 OPEN 41,8,0,FN$:PRINT #1;TOTAL:CLOSE II:RETURN 

1119 REN 

1120 REN Read in data from dictionary 
1125 OPEN ll,4,0,FN$:INPUT lljTOTAL 

1130 ? :? “DICTIONARY CURRENTLY HAS “;:? TOTAL;:? " WORDS." 
1135 IF T0TAL=0 THEN GOTO 1170 

1139 REN 

1140 REN Read in each word/def combination 
1145 ? :? "READING IN DICTIONARY ...” 

1150 FOR 1=1 TO TQTAL:INPUT ll;NDEF$:60SUB PWORDtNEXT I 

1155 NUHBER=T0TAL:L=LEN(W0RD$):IF L=4646 THEN GOTO 1170 

1160 REN Fill rest of WORD! with blanks 

1165 WORD!(LEN(WORD!)*1)=BLANKI:GOTO 1155 

1170 RETURN # 


ATARI Portabi1ity 

ATARI, Inc. 

The four controller jacks on the 400 and 800 are 
connected to the PIA’s 2 eight bit bi-directional ports. 
This allows the jacks to be used for output as well as 
input. Because these ports are easily made TTL 
(transistor transistor logic) compatible, the designer of 
peripherals will find the* easier to use for soae things 
(like simple sensors and controllers, etc.) than the 
serial port. The following program and explanation shows 
how to program and use these ports. 

100 PDRTA=54016‘. REN Port A Data & Direction Registers 

110 P0RTB=54017: REN Port B Data It Direction Registers 

120 PACTL=54018: REN Port A Control Register 

130 PBCTL=54019: REN Port B Control Register 

140 ALL0UTPUT=255:SETDIRECTI0N=56:SETDATA=60 

150 POKE PftCTL,SETDIRECTION 

160 POKE PORTA, ALLOUTPUT 

170 POKE PACTL,SETDATA 

180 POKE PBCTL,SETDIRECTION 

190 POKE PORTB,ALLOUTPUT 

200 PDKE PBCTL,SETDATA 

210 FOR D=0 TO 255 

220 POKE PACTL, DPOKE PBCTL,D 

250 NEXT D: END 

(Continued on Page 22) 


BITS "it” BYTES 

COMPUTER SUPPLIES 

Serving The Entire Metropolitan Area 


■ Magnetic Media 

■ Computer Paper 

■ Computer LH & Env. 

■ Labels 

■ Tab Index Cards 


■ Ribbons 

8 Custom Computer Forms 

■ Print Wheels 

■ Data Binders 

8 Computer Cables 


■ Thermal Paper 

■ Computer Furniture 
8 CRT Film 

8 Static Control Floor Mats 
8 Head Cleaning Kits 


For Large EDP Centers, Mini Computer and Word Processing Users 


A Tradition of 

Quality Products and Service. 


Authorized Distributor 
Information Processing Products 



A Division of OO OC 620 Hungerford Dr. 

World of Print l3 fc f II Rockville, Md. 
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Nibbles &e Bits 
By Jay Gerber 


This month’s NIB Kill focus on two different types of 
current adventure games. Suspended, by Infocom, is an 
all-prose (just words) format. ULTIHA III) EX ODDS, by 
Origin Systems, is a graphic role-playing gate. Both 
gates are relatively new and typical of both types of 
cotputer adventures on the tarket today. 


is extremely tough, so those adventurers who are locking 
for quick solutions should look sotewhere far away. The 
vivid scenes of Suspended ’s novel-1ike plot are great. 1 
felt like I was actually in that world with the robots 
next to ae. 1 loved this gate even though 1 still haven’t 
solved it! 


Suspended is an inter-active text adventure gate for 
one player. Like its predecessor the Zork trilogy, it 
will understand whole sentences that you type in. In 
Suspended, you are in a state of suspended animation, 
which means you can’t aove, but your brain can think. 
Your thoughts are translated by a cotputer that runs an 
entire world. It just so happens that a tassive 
earthquake has just hit the complex where the cotputer 
that controls the environtent, transportation, and food 
supply for your world are housed. Since you can't sove, 
you use six robots that tove around the cotplex for you to 
adjust and hopefully restore the cotputer to working 
condition. 

Each of the six robots you control with your thoughts 
has different attributes and weaknesses. Waldo, for 
instance, has six extensions and can tanipulate alaost 
anything. However, he is very sensitive, and it can be 
quite frustrating if he won’t fully co-operate. Since 
each robot’s forte is a different sense (like sight, 
hearing, touch, etc.), you tust use all your robots 
together to accotplish the quite challenging task. 

In Suspended , as in all Infocot gates, you tust use 
solely your wits to sucessfully win the gate. You will 
very often be given a cotplex problet which you tust solve 
before you can do anything else. While this takes the 
gate very frustrating indeed, you really feel elated when 
you solve the challenges. The description of a certain 
root will vary depending on which robot is perceiving it. 
For instance, Auda the audio droid, will only tell you 
what she hears. Sensa, the sensory robot, can tell you 
only what vibrations etanate frot the root. And Poet, who 
is a diagnostic drone, does see, but as his nate itplies, 
his descriptions can be very oblique and confusing. 

The documentation in Suspended is excellent. A 
plastic-coated cardboard tap of the complex is included 
with six tokens that represent each of the robots and help 
with the troublesome task of keeping track of the robots’ 
current locations. The manual is loaded with background 
material and explains the game very well. 

I found the game easy to learn, since you talk in 
English sentences and the cotputer responds with 
incredibly detailed descriptions. The puzzle cotplexity 


Ultima III:Exodus is a breakthrough in adventuring in 
many ways. Host obvious is that tore than one person can 
adventure at a time. Ultita III can handle up to four 
characters of different classes. This means that you can 
have a party with wizards, fighters, theives, etc., and 
they all, to a certain extent, can be independently 
controlled. Another revolutionary feature is the 
fantastic sound track that accompanies the action. 
Hood-setting music in four-part harmony takes the game 
seem like tore of a movie. It gets dark and foreboding 
when monsters appear and solemn when you approach the 
king. 

Your mission is to traverse the beautiful scrolling 
landscape in search of the evil demon Exodus, and then, 
using all the strength and courage you can muster, defeat 
the powerful creature. Exodus is esentially a role 
playing game (RP6). An RPB works this way: you create a 
hero using point values assigned to different attributes 
such as strength, dexterity, wisdom, and intelligence. 
You have 50 points to divide among these categories. The 
attribute you put the tost points in determines your 
character class. For example, a fighter needs strength 
and dexterity. A wizard needs intelligence, and so on. 
You then choose your sex and race (hutan, elf, dwarf, 
etc). 


With your created character you then do various 
things to find clues and gain experience and strength in 
order to defeat Exodus. You can purchase supplies in 
numerous cities, fight monsters in dungeons and on land, 
sail in ships, even drink in bars. 


In terms of puzzle-solving difficulty, Ultima 
111:Exodus is not hard at all . You mainly gain clues and 
the strength you need through time (lots of it!). The 
combat phases are very nicely animated and realistic. The 
dungeon scenes are in an impressive 3-D perspective. The 
greatness of this gate lies in the detail. The landscape 
and cities are ornately detailed. Your interaction with 
the other characters of the land is incredibly detailed. 
Although your actions are pretty much limited to several 
one-letter commands, I didn’t feel at all constrained in 
making my actions. Ultima III is far superior to the 
first two Ultima adventures which have very similiar 

gateplay. _ ® 
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1—000 Lessons 
From ATARI Demopac #11 


USING SETREAD AND SETWRITE 
More Than Just Dribbling 
JG/6/83 

The Atari Logo Reference Manual states that SETREAD 
and SETNRITE may be used to create a 'dribble* file by 
recording the screen output to either a printer, disk or 
cassette. There is another use for SETWRITE that is not 
mentioned in the ATARI manual. SETREAD and SETWRITE 
function like the 'OPEN' command in ATARI BASIC. They 
open an Input/Output Control Block (1DCB! for reading or 
writing to a device (casette, disk or printer). 


The Atari Logo Reference Manual describes the SAVE 
command for saving the contents of the workspace to a 
specified device. The drawback to using this method 
when saving the workspace is that the procedures are 
saved in the order that they were written in, not in the 
logical order in which the are used. This can make for 
hard-to-read programs. The following program uses the 
procedure PRINTER to print readable listings to the 
printer: 

TO PRINTER 

SETNRITE *P: 

PR [TITLE! PR t! 

PR [NAME AND DATE! PR I! 

PO [PROCEDURE NAMES ... 3 

SETNRITE I! 

END 


PRINTER opens a channel to the printer with the 
SETNRITE "P: command. The next line prints any title 
for the heading of the listing. PR [1 prints a blank 
line for formatting purposes. Then the name and date 
are printed. Another blank line and then the command PO 
[PROCEDURE NAMES ... ! prints out the procedure names in 
the order listed inside the brackets . This allows 
control over the sequence of the procedures in the 
printout. If three procedures "ONE, TWO, and THREE" 
were created in the order THREE, TNO and ONE and they 
were prited to the printer using the SAVE "P:, they 
would be printed in the sequence THREE TNO ONE. But if 
they were printed using the PRINTER procedure, PO [ONE 
TNO THREE!, they would be listed in the sequence ONE TNO 


THREE. The SETNRITE [3 command is used to dose the 
file and return output back to the screen. It is 
important to use the SETNRITE and SETREAD commands 
within a procedure to avoid the "dribble" effect 
mentioned above. 


SETNRITE can also be used when saving procedures to 
disk. If you have ten procedures in your workspace and 
you want to save three of them to a disk file, SETNRITE 
can be quite useful. Instead of erasing all the 
procedures you don’t want and then using the SAVE 
command to save the three you want the following 
procedure can be used: 

TO SAVE.DISK 
SETNRITE "D:DEMO 
PO [ONE TNO THREE! 

SETNRITE t! 

END 


The file DEMO now contains the desired three 
procedures. Files created with the above procedure can 
be LOADed just like a file saved using the SAVE command. 
It is not necessary to use SETREAD to read files saved 
in the above manner. 


VIDEO TURTLE 

The Joystick and the Turtle 
JG/9/83 

VIDEO TURTLE is a program that teaches the turtle 
to “listen” to the joystick. The turtle will respond to 
the commands from the joystick to set its heading to any 
increment of 45 degrees and then take five steps 
forward. Pressing the joystick trigger will change the 
turtle and pen to the next of three preset colors and 
all following commands will then be carried out in the 
current turtle and pen color until the trigger is 
pressed again. (The preset pen and turtle colors in 
this version are red, yellow and blue.) 
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The pen end turtle colors are changed by using a 
WHEN demon in the SETUP procedure. The WHEN demon 
enables the Atari Logo collision detection and sets up a 
demon to constantly check for a collision or event. In 
this case the event is the pressing of the joysick 
trigger, one of the 20 types of collisions or events 
that WHEN demons can detect. 

To make this program usable to younger turtle fans 
and to give more variety to the turtle’s activities, a 
HELP menu is included when the program is started. The 
HELP menu can be removed any time a full screen graphics 
display is desired. While the basic dram and turn 
commands are given with the joystick, the HELP menu 
suggests other commands that may be given through 
keyboard entry. The DRAW procedure contains the KEYP 
predicate that checks for a keypress and executes the 
desired intruction via the PEN.UP.DOWN procedure. 


TO START 

INSTRUCTIONS 

SETUP 

HELP 

DRAW 5 

END 

TO INSTRUCTIONS 
SETB6 1 

TS CT SETCURSOR (10 21 
PR [ VIDEO TURTLE 1 
PR [1 PR □ 

PR [PLUG IN JOYSTICK IN PORT #13 

PR n 

PR [TO CHANGE THE TURTLE’S PENC0L0R PRESS THE JOYSTICK 
BUTTON! 

PR [] 

PR [THE TURTLE STARTS WITH THE YELLOW PEN DOWN! PR I! PR 
[3 

PR [TO RECALL COMMANDS PRESS H FOR HELP3 

SETCURSOR [4 203 

PR [* PRESS ANY KEY TO BEGIN *3 

KEYPRESS RC 

END 

TO DRAW t STEP 

IF KEYP [PEN.UP.DOWN RC3 

CHECKJOY JOY 0 

DRAW ’.STEP 

END 


TO KEYPRESS :ANYKEY 
END 

TO CHANGEPN 

IF PN = 2 CSETPN 0 STOP] 

SETPN ( PN + 1 ) 

END 

TO CHAN6ETURT.CLR 
IF PN = 0 ESETC 153 
IF PM * 1 ISETC 753 
IF PN = 2 ESETC 353 
END 

TO SETUP 

CT CS FS ST TELL 0 
SETPN 0 
SETPC 1 75 
SETPC 2 35 

SETB6 1 •.* : 

SETC 15 

WHEN 3 [CHANGEPN CHANGETURT.CLR3 
END 

TO HELP 
CT SS 

PR IU PICKS UP THE PEN! 

PR ID PUTS DOWN THE PEN3 
PR IX PUTS REVERSING PEN DOWN! 
PR IC CLEARS SCREEN3 
PR IE ERASE HELP] 

END 

TO PEN.UP.DOWN lUPDOWN 
IF :UPDOWN * "E ICT FS3 
IF ‘.UPDOWN = "H [HELP] 

IF :UPDOWN * “X IPX! 

IF :UPDOWN = "C [SETUP! 

IF ‘.UPDOWN - “U [PU3 
IF '.UPDOWN * "D [PD3 
END 

TO CHECKJOY :P0S 
IF IPOS < 0 [STOP] 

SETH 45 * IPOS 
FD -.STEP 
END 
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The NOTE and POINT Commands 

Atari Inc, 

CEd: The following program, distributed by ATARI 
Custoner Relations, illustrates the use of the NOTE and 
POINT co»»ands to perfor* randos access to data files. I 
have added REN statesents throughout the progra# to help 
explain the various sections.! 


1 REN RANDOM ACCESS - ATARI BASIC 

2 REN BY KENT SMITH 

3 REN MODIFIED BY JOE WATERS (NAY, 1984) 

8 REN Set total records, record length, and 

9 REN length of name and address 

10 RCDS=i00:LN6TH=40:NN=20:AD=20 

19 PRINT CHR$(125> 

20 DIN S(RCDS),C(RODS),SPACES(LNSTH),NANE!!NH),ADDR!(AD) 

24 REN Clear out the strings 

25 SPACE!*’ “:SPACE!(LN6TH)=" SPACE!(2)-SPACE! 

27 NAKE!=SPACE$(1,NN):ADDR!*SPACE!!1,AD) 

28 REN If index file does not exist, error 

29 REN occurs. Jump to line 4000. 

30 TRAP 4000:PRINT CHR!i125) 

35 POSITION 7,3:PRINT "READIN6 INDEX FILE" 


39 REN Open both files to mate sure they exist. 

40 OPEN 12,4,0, ’D:INDEX.DAT" 

50 OPEN 11,4,0, "DlFILE.DAT":CLOSE itl:TRAP 40000 

59 REN Reopen data file for UPDATE 

60 OPEN *1,12,0,"DiFILE.DAT" 

69 REN get the index to the data file. 

70 FOR A*1 TO RODS:POSITION 5,5:PRINT A 
80 SET #2,SECTH:GET I2,SECTL:SET *2,CHAR 

84 REN Convert hi-lc bytes to one number. 

85 SECT=SECTH*256+SECTL 

90 S(A)=SECT:C(A)=CHAR:NEXT AlCLOSE *2:S0T0 1000 

999 REN ** Demonstrative portion of program ** 

1000 REN Enter Name and address and where to store 
1005 PRINT CHR$(125):PRINT " ENTER DATA: ' 

1015 PRINT :PRINT "(ENTER NULL LINE TO STOP)"IPRINT 
1020 PRINT "NAME INPUT NAME? 

1025 IF NANEt*"" THEN SOTO 1200 
1030 PRINT "ADDRESS INPUT ADDRi 
1035 PRINT IPRINT 

1040 PRINT “WHAT RECORD (l-“;RCDSi“l SHOULD THIS BE" 
1045 PRINT "STORED IN INPUT RlBDSUB 3000 
1055 POINT #1,S(R),C(R) 

1060 PRINT ll;NANE!:PRINT #1;ADDRf 
1070 NAN£I=SPACE!:ADDR!=SPACE!:SOTO 1005 


YOUR KEY TO 

Nv fmOBrrmn 


Get j 'jy 

professional x /rr'yj 

80 column word /) 

processing, CP/M, 
data management, remote 
terminal configurations, plus many 
more applications thanks to the 
BIT 3 FULL-VIEW 80. Clear crisp 
characters on your CRT monitor 
with full descenders are standard. 
And all your current Atari 40 col¬ 
umn and graphics programs work: 
switch between normal Atari 40 
column/graphics mode and 80 col¬ 
umn mode either under program or 
keyboard control. Just plug into 
slot 3, cable up and fun. Maintain 
48K RAM capacity by installing the 
BIT 3 32K MEMORY PLUS RAM 
card in RAM slot 2. 

Some word processors that 
work in 80 columns on the FULL- 
VIEW 80 are Letter Perfect from 
LJK and Atext-1 by Elcomp Pub¬ 
lishing. Other popular software that 


FULL-VIEW 80 



runs with the FULL-VIEW 80 is 
Atari's Assembler Editor, Basic Car¬ 
tridge, Macro Assembler, and 
PASCAL; Optimized System's Basic 
A+, OS/A+and EASMD; Microsoft's 
BASIC; Teletari by Don't Ask Com¬ 
puter and T.H.E. Smart Terminal 
by Binary Computer Software. More 
applications are being added every 
day including CP/M by Software 
Publishers. 


ATARI® 800 
ENJOYMENT 

See a review of the FULL-VIEW 
80 in A.N.A.L.O.G. Computing, 
Issue 9, page 31 . Other reviews avail¬ 
able upon re-quest. 


Full-View 80 . $299.00 

32K Memory Plus.$80.00 


OTHER FINE PRODUCTS FROM BIT3 

For Apple computers: Full-View 80, 
2 Serial Channel Card. For IBM PC com¬ 
puters: Multibus Expansion; General 
products: RS232 Gender Changer/Pin Re- 
configurator. 


CONTACT 
BIT 3 
OR YOUR 
DEALER FOR 
PURCHASE. 


Bir3 5 

COMPUTER CORPORATION 


8120 Penn Avenue South 
Minneapolis, Minnesota 55431 
612-881-6955 


VISA-M/C 


a.0 
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1199 REM Retrieve any particular record 

1200 PRINT CHR$( 125).-PRINT “RETRIEVING DATA«-PR!»t 
1205 PRINT “(ENTER 0 TO STOP^TpRINT 

1210 PRINT “NHAT RECORD U-";RCDSf ”) WOULD VOU" 
1215 PRINT “LIKE TO SEE INPUT R 
1220 IF R=0 THEN SOTO 2000 
1225 POINT li,SIR),C(R) 

1230 INPUT #i,NANE$ 

1235 INPUT #1,ADDR$ 

1240 ? “RECORD NO. “(R 
1245 PRINT “NAME: “{NAME! 

1250 PRINT “ADDRESS: ”;ADDR$ 

1255 FOR 1=1 TO 200:NEXT I 
1260 GOTO 1200 
2000 CLOSE #l:CLOSE #2 
2010 END 

3000 REM Subroutine for padding string with 
300! REM spaces so that sector pointers on 
3002 REM diskette do not get scrambled. 


3010 NAMES < LEN(NAME*)+1)=SPACE* 

3030 ADDR*(LEN(ADDR*)+1)=3PACE* 

3040 RETURN 

3999 REM Establish an index file for the data file 

4000 TRAP 40000:PRINT CHR*(125)POSITION 7,3:PRINT 
“CREATING NEW INDEX FILE* 

4010 CLOSE #1:CLOSE 12 
4020 OPEN #2,8,0,*D:INDEX.DAT* 

4030 OPEN #1,B,0,“D:FILE.DAT* 

4040 FOR fl=l TO RCDSlPOSITION A 

4059 REM NOTE the location about to be written to 

4060 NOTE II,SECT,CHAR 
4070 S(A)=SECT:C(A)=CHAR 

4079 REM PRINT the naae and address to data file 

4080 PRINT HjNAMESlPRINT ll;ADDR* 

4085 REM Convert SECT to hi-lo byte nunbem 
4085 SECTH=INT(SECT/256):SECTL=INT(SECT-SECTH*256) 

4089 REM Put the pointers into the index file 

4090 PUT #2,SECTH:PUT #2,SECTL:PUT 12,CHAR 

4099 REM Do next record and re-run the prograe when done 

4100 NEXT A:CLOSE II:CLOSE 12:SOTO 30 • 


1 REM CIRCLE2: Coapute and draw a 

2 REM circle on the screen. 

3 REM EZ/JP 9/81 

4 REM HHIHHKIHHttHHHHtH 

9 REM SELECT GRAPHICS MODE 3-8 

10 PRINT “GRAPHICS MODE INPUT 6 

20 GRAPHICS G:COLOR 1:POKE 765,1 

21 REM location 765, ’fildat’, tells 

22 REM the fill coaaand which color 

23 REM to use. 

30 PRINT “CENTER (X,Y)..,“; 

35 INPUT X0,Y0 

40 PRINT “RADIUS INPUT R 
50 R2=R*R 

59 REM plot 1st point on circle 

60 PLOT XO.YO+R 

65 REM Draw right half 
70 FOR Y=R TO -R STEP -1 
75 REM Coapute drawto-point 
80 X=S0R(R2-(Y»Y)> 

85 REM ’fudge factor’ correct for 

86 REM uneven pixel siie 
90 X=X*8/7 

100 DRAKTO X0+X,Y0+Y:NEXT Y 
120 FOR Y=-R TO R:REM left half 
125 REM include fudge factor: 

130 X=S8R(R2-IY*Y))*8/7 

140 PLOT X0-X,Y0+Y:REM plot points 

149 REM top or bottoa pixels? 

150 IF ABS(Y)=R THEN 60T0 170 
155 REM fill as you go: 

100 XIO 18,16,0,0,“S:• 

170 NEXT Y 

180 GOTO 10:RFM try another one m 



Applied Computer Associates 

966 Hungerfbrd Drive, #8A, Rockville, MD 

340-0100 □ 424-4112 
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(Continued from Page 16) 

The new XL computers only have two joystick ports. 
The Port B is used by the operating syste* to manage the 
extra memory. Any lines that affect Port B should not be 

entered. c _. . . 

Explanation 

This program sets all 16 bits for output, then puts 
the numbers 0 to 255 out to each port. Port A is 
connected to the left two jacks while Port B is connected 
to the right two jacks. 

lin£ 100: This is the address of both the Direction 
Control (input or output) and the Data Registers for Port 
A. 

UHi U& Direction Control and Data Reoisters for 
Port B, 

klM. 120: Bit two of this register determines whether 
Port A is the Direction Control or Data Register 

kllli 130: Sate as line 120 but for Port B. 

Line 140: ALLOUTPUT is set to all ones. SETDIRECTI0N 
has bit two reset while SETDATA has bit two set. 

Line 150: Since PACTL is initialized to decimal 60 by 
ths operating system, this line resets bit two. This 
causes Port A to address the Data Direction Register for 
Port A (instead of the Data Register), 


Line 160: This sets the Port A Direction Register to 
all output (every bit that has a one corresponds to an 
output line). This will cause all eight lines in Port A 
to be output lines. 

Line 170: This causes PORTA to address the Port A 
Data Register. With this configuration data PQKEd into 
PORTA will be reflected in the voltages applied to the 
controller jack pins. 

Line 180-200 : The sane as 150-170 but for Port B and 
P0RTB. 

Line 210-250 : These lines demonstrate that data can 
be output by simply poking it into PORTA i P0RTB. This 
sequence causes both ports to "count" from zero to 255. 

Controller Jack 


112345 / 

16789/ 


1. (Joystick) Forward Input 

2. (Joystick) Back Input 

3. (Joystick) Left Input 

4. (Joystick) Right Input 

5. B Potentiometer Input 


6. Trigger Input 

7. +5 volts 20 «a (TTL load) 

8. Ground 

9. A Potentiometer Input 
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Current Notes 


BECOM I INIC3 A MEMBER 

Membership dues for the groups are $15.00 a year, which includes 
a subscription to Current Notes . Dues are payable at the beginning 
of each calendar year. Dues for new members joining during the year 
are reduced $1.00 for each month which has passed since the first of 
the year. For example, if you join in June, your dues would be 
$10.00. Dues may be paid at any meeting, or sent to the treasurer of 
the club of your choice. 

DC USERS GROUP : Allen H. Lerman, 14905 Waterway Drive, 
Rockville, MD 20852, (301) 460-0289 

NOVATARI : Curtis Sandler, 7213 Idylwood Court, Falls Church, VA 
22043, (703) 734-9533 

AURA : Richard Stoll, P.0. Box 7761, Silver Spring, MD 20907, 
(301) 946-8435 


To enroll as a new club member or renew your membership, please 
return the card below to the treasurer of the club of your choice. 
The treasurer will pass your name and address on to Current Notes and 
you will be placed on our mailing list. 
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BIG BROTHER 9 E> NEWSPEAK MACHINE 

Th»y w«r« dttp in th. bowtl* of th. Ministry of Truthi but 
on, of th« unblinking »urv»iU*nct h»d apott«d * 

fUrnh of telltale blue denim. Hi» companions watched halp- 
lataly at the caga swooped down upon hit paralyzed form. 

U tha remaining pabalt could not pats tha authorization 
checks and tha many camarat that ttill lay batwtan tham and 
tha Central Control area, than Big Brother would keep hit 
unchallenged command of tha English language, and with it, 
control over tha thoughts of all English speaking people. 
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NEWSPEAK is a vocabulary building game for one player, age 
tight to twelve. A unique bland of joystick action and educa¬ 
tion NEWSPEAK sands tha student threading through alternating 
mazes and word-origin puzzles. NEWSPEAK requires an ATARI* 
computer with at least 24K of memory, an 81* Disk Drive, a 
BASIC language cartridge, and a joystick controller. 

SPECIAL FEATURES : The instruction booklet includes a 
bibliography of sources for thousands of additional words. 

3 i/4 inch Floppy Disk 819.88 each (special for 1984) 
Special rates available for qualifying school systems. 

Find me at DCAUG meetings, or write to 

Bennett Rutledge, CDP 
327 South Wayne Street 
Arlington, Virginia 22284 


•ATARI it a registered tradasart of Atari, 1 « 


FUTURE TECH 

THE BEST 

ATARI STORE 111 THE D.C. AREA 


1. . LARGE5T IH 5TOCK IHVEMTORY OP ATARI SOFTWARE - MOST AT 

21% OFF! 

2. TECHNICAL HELP AVAILABLE. 

3. SPECIALIST IN PERCOM, INDU5 GT, TRAK AND A5TRA DI5K DRIVES AT 
DISCOUNT PRICES 

4. HEADQUARTERS FOR THE ATR 8000 

5. SOFTWARE ALSO IN STORE FOR APPLE AND IBM. 

Located in West Springfield in Jay's West Springfield Shopping Center, corner of Rolling 

and Old Keene Ml!! Roads. 
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